Ответ к заданию 2: Редактирование макроса

Решение:

• Откройте Word и нажмите клавиши <Alt>+<F11>. В открывшемся окне Microsoft Visual Basic найдите окно Project Explorer, раскройте в нем узел Normal -> Modules -> NewMacros, выделите NewMacros и нажмите на кнопку <F7>. Откроется окно с кодом NewMacros.

Найдите вашу процедуру Sub Подпись() и внесите необходимые изменения. Общий текст процедуры может быть, например, таким (Внимание! Он вполне может не совпадать с вашим текстом - все зависит о того, какие действия вы выполняли в макрорекордере):

Sub Подпись()

'

' Подпись Макрос

' Макрос записан 02.05.2004 R

'

Dim sInPut As String

sInPut = InputBox ("Введите фамилию ответственного исполнителя", "Запрос данных")

Selection.TypeText Text :="Генеральный директор:" & vbTab & vbTab & vbTab & _

" Иванов А.А."

Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

Selection.TypeParagraph

Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft

Selection.TypeText Text:=("Отв. исполнитель " & sInPut)

Selection.TypeParagraph

Selection.TypeText Text:="т. 55-55"

End Sub

Нажмите на кнопку < Ctrl>-< S>, чтобы сохранить изменения и <Alt>-<Q>, чтобы вернуться в Word. Выполните макрос, чтобы убедиться, что он работает в соответствии с заданием.

Получить этот учебник в формате PDF (Acrobat Reader) или DOC (Microsoft Word)